From: Juri Linkov Date: Thu, 25 Aug 2011 20:48:45 +0000 (+0300) Subject: * lisp/isearch.el (isearch-occur): Let-bind `search-spaces-regexp' to X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~2473 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=3a91b4a9293c0cc7a5dc27d086fae5395b6550cb;p=emacs.git * lisp/isearch.el (isearch-occur): Let-bind `search-spaces-regexp' to `search-whitespace-regexp'. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fc80ba84da2..147e34ff4ab 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-08-25 Juri Linkov + + * isearch.el (isearch-occur): Let-bind `search-spaces-regexp' to + `search-whitespace-regexp' (bug#9364). + 2011-08-25 Juri Linkov * isearch.el (isearch-edit-string): Let-bind `search-ring' and diff --git a/lisp/isearch.el b/lisp/isearch.el index 12529857a2c..8764952dbf5 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -1445,9 +1445,10 @@ string. NLINES has the same meaning as in `occur'." (t (regexp-quote isearch-string))) (if current-prefix-arg (prefix-numeric-value current-prefix-arg)))) (let ((case-fold-search isearch-case-fold-search) - ;; set `search-upper-case' to nil to not call - ;; `isearch-no-upper-case-p' in `occur-1' - (search-upper-case nil)) + ;; Set `search-upper-case' to nil to not call + ;; `isearch-no-upper-case-p' in `occur-1'. + (search-upper-case nil) + (search-spaces-regexp search-whitespace-regexp)) (occur regexp nlines))) (declare-function hi-lock-read-face-name "hi-lock" ())